Appendix F 
Motorola Diagnostic Listings 

The source for the diagnostic programs are written in Motorola 6800 assembly language. They are 
found on the standard software release disk under the following names 

PANEL. 
ALU.* 
IFU.« 
EXECUTER.. 

The object programs are stored in a special ASCII format known as the Motorola S-format. The filenames 
for these programs are: 

alu.MOT 
ifu.MOT 
ex.MOT 

The program named 'PANEL' is not on the disk in object form. It 
is stored in ROM on the DPU. 

*** the listings for the Motorola software will not be included in the preliminary release of the hardware 
manual. 
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SUBMONIT 



2 0000 BEGIN SUBMONIT 

3 

5 * * 

6 * SUBMONITORS FOR: REV. 23,9.80 « 

7 * * 

8 » MAIN MEMORY 23.9.80 * 

9 * DEVICES 23.9.80 * 

10 * EXECUTER 17.8.79 * 

11 * MICRO MEMORY 
12 
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SUBMONIT 

17 

18 * DIAGNOSTIC PANEL M6802-SOFTWARE 23.05.83 

19 

20 * J.HOPPE * 

21 * I.NOACK 

22 * R.OHRAN 

23 * W.WINIGER 
24 

26 

27 

28 BIN EQU 0C09C 

29 *»* HEXADECIMAL (ASCII) TO BINARY CONVERSION 
38 

31 « ARGUMENT: A = CHARACTER TO BE CONVERTED 

32 * RESULTS: CARRY = RESET, IF A CONTAINED A VALID HEX DIGIT 

33 « SET OTHERWISE 

34 * A = BINARY VALUE OF THE PARAMETER A IF CARRY RESET 

35 * UNDEFINED OTHERWISE 
36 

37 HEX EQU 0C0B3 

38 *** BINARY TO HEXADECIMAL (ASCII) CONVERSION 

39 * 

40 * ARGUMENT: A = FOUR BIT VALUE TO BE CONVERTED 

41 « RESULTS: A = ASCII-CHARACTER REPRESENTING AS HEX DIGIT 

42 * THE FOUR BIT NUMBER CONTAINED IN PAR. A 
43 

44 R.CH EQU 0C024 

45 «*** READ A CHARACTER FROM THE HP AND ECHO IT 
46 

47 « ARGUMENT: 

48 * RESULT: A = CHARACTER READ FROM THE UART 

49 • SIDE EFFECT: R.CH POLLS UNTIL A CHARACTER IS SENT TO IT 

50 * A = ESC -> CONTROL IS TRANSFERED TO THE SUBMONITOR 

51 » A = tC -> CONTROL IS TRANSFERED TO THE MONITOR 

52 * A - QUESTIONMARK -> MENU IS DISPLAYED 
53 

54 READ.CH EQU 0E003 SAME AS R.CH BUT WITHOUT ECHO AND WITHOUT INTER- 

55 ««.«««. PRETATION OF A 
56 

57 BREAK EQU 0C046 

58 **«*» READ A CHARACTER FROM THE HP (WITHOUT POLLING) 

59 » RESULT: A = CHARACTER READ FROM THE UART 

60 » = IF NO KEY WAS PRESSED 

61 « SIDE EFFECT: SEE R.CH 
62 

63 V.CH EQU 0CB51 

64 «««» WRITE A CHARACTER TO THE HP 
65 

66 « ARGUMENT: A = CHARACTER TO BE WRITTEN 

67 « RESULT: 

68 » SIDE EFFECT: W.CH POLLS UNTIL IT MAY SEND THE CHARACTER 



PANEL 
SUBMONIT 
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70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 



W.l. BLANK EQU 0C062 

V. 2. BLANK EQU 0C060 

V. 3, BLANK EQU 0C05E 

«*.«****. WRITE N BLANKS TO THE HP 

W. STRING EQU 0C06A 

...,***. write A STRING TO THE HP 

# 

ARGUMENT: X - ADDRESS OF THE STRING TO BE WRITTEN 

(TERMINATED BY A 8-BYTE) 
RESULT : 
SIDE EFFECT: POLLING MAY OCCUR, SINCE W. STRING CALLS W.CH 

X RETURNS THE ADDRESS OF THE 8-BYTE TERMINATING 

THE STRING +1 

W.CRLF EQU 8C878 

..**** WRITE A CARRIAGE RETURN / LINE FEED TO THE HP 

* 

* ARGUMENT : 
RESULT: 



91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 



NO 

** 

IN. HEX 

****** 



READ. HEX 

******** 

OUT. HEX 

******* 



IN. BYTE 

******* 



EQU 0C097 

WRITE AN EXCLAMATION POINT TO THE HP 

EQU 0C085 

INPUT A HEXADECIMAL DIGIT FROM THE HP (WITH ECHO) 

ARGUMENT: 

RESULT: A = FOUR BIT VALUE OF THE CHARACTER READ 

SIDE EFFECT: IN. HEX READS CHARACTERS FROM THE HP UNTIL A 

VALID HEX DIGIT IS ENCOUNTERED; CHARACTERS > '9' 

ARE CONVERTED TO CAPS 

EQU 0E80D IN. HEX WITHOUT ECHO 



EQU 0C090 

OUTPUT A HEXADECIMAL DIGIT TO THE HP 



ARGUMENT : 
RESULT : 



A = FOUR BIT BINARY VALUE OF THE HEX. DIGIT TO BE 
WRITTEN 



READ. BYTE 

********* 



EQU 8C0BC 

INPUT TWO HEX DIGITS FROM THE HP INTERPRETING THEM AS A BYTE 

(WITH ECHO) 
ARGUMENT: 
RESULT: A = EIGHT BIT VALUE FORMED FROM THE TWO CHARACTERS 

READ 
SIDE EFFECT: IN. BYTE READS CHARACTERS FROM THE HP UNTIL TWO VALID 
HEX DIGITS ARE ENCOUNTERED 

EQU 8E81A IN. BYTE WITHOUT ECHO 
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125 OUT. BYTE EQU 0C0C9 

126 ..»**«.* OUTPUT AN EIGHT BIT NUMBER REPRESENTED BY TWO HEXADECIMAL DIGITS 
127 

128 « ARGUMENT: A = THE BYTE TO BE WRITTEN TO THE HP 

129 « RESULT: 
130 

131 IN. WORD EQU 0C0D8 

132 .....«« INPUT FOUR HEX DIGITS FROM THE HP INTERPRETING THEM AS A SIXTEEN 

133 * BIT NUMBER (WITH ECHO) 
134 

135 * ARGUMENT: X = ADDRESS OF THE MEMORY LOCATION WHERE THE WORD 

136 » READ HAS TO BE STORED 

137 * RESULTS: M[X] AND M[X+1] CONTAIN THE DATA READ 

138 « SIDE EFFECT: IN, WORD READS CHARACTERS FROM THE HP UNTIL FOUR 

139 * VALID HEX DIGITS ARE ENCOUNTERED 
140 

141 READ, WORD EQU 0E027 IN. WORD WITHOUT ECHO 

142 «**#****» 
143 

144 OUT. WORD EQU 0C0E3 

145 «......» OUTPUT A 16-BIT NUMBER REPRESENTED BY FOUR HEX DIGITS 

146 

147 » ARGUMENTS: X = ADDRESS OF THE MEMORY LOCATION CONTAINING THE 

148 * WORD TO BE WRITTEN 

149 « M[X] = HIGH BYTE, 

150 « M[X+1] = LOW BYTE OF THE WORD 

151 « RESULT: 
152 

153 FAST. READ EQU 0C0EE 

154 .«..«««.« INITALIZE THE HP READING ITS CASSETTE AND TRANSFERING ONE FILE 
155 

156 LINE. READ EQU 0C0FB 

157 ......... INITIALIZE THE HP READING ITS CASSETTE AND SENDING ONE LINE 

158 

159 



PANEL 
SUBMONIT 
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161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
198 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 



MENU 



GET. KEY 

******* 



GET. WORD 



******** 



COMMANDS 



******** 



BOOT 



EQU 0C336 

WRITE THE MENU POINTED TO BY ACT. MENU ON THE SCREEN 

ARGUMENT: ACT, MENU = ADDRESS OF THE MENU (ASCII STRINGS 
AND ENTRYPTS) 

EQU 0C352 

PROMPT WITH CR/LF AND A '*', CALL GETWORD AND REPEAT THEN 
ACCEPTING A 'KEY' UNTIL (SKIPPING BLANKS) THIS IS THE FIRST CHA- 
RACTER OF ONE OF THE LINES OF THE MENU. CONVERT ALL CHARACTERS 
TO CAPS. JUMP THEN TO THE ROUTINE IDENTIFIED BY THIS 'KEY'. 



ARGUMENT: ACT.SUB.MON = ADDRESS OF THE MENU 
RESULTS: X.WORD (AT LOCATION 0F) - THE ADDRESS ENTERED BEFOR 

THE CHARACTER 
CARRY = FALSE IF NO ADDRESS AT ALL WAS ENTERED 
= TRUE IF X.WORD CONTAINES AN ADDRESS 
SIDE EFFECT: X IS DESTROID BY GET. KEY 



EQU 0C2FE 

READ HEX DIGITS FROM THE HP SKIPPING BLANKS AT THE BEGINNIG INTER- 
PRETING THEM AS A NUMBER UNTIL A NONNUMERICAL CHARACTER IS 
ENCOUNTERED 

RESULTS; X.WORD (AT ADDRESS 0F) = BINARY VALUE OF THE LAST 

4 HEX DIGITS ENTERED 
A = THE NONHEX CHARACTER WHICH TERMINATED THE INPUT 
CARR (AT LOCATION 11) - IF THE FIRST CHARACTER 

ENTERED WAS NONHEXADECIMAL, 
= FF IF A NUMBER WAS ENTERED 
FIRST 

EQU 0C391 STORE THE CONTENT OF THE X-REGISTER INTO ACT.SUB.MON, 
WRITE THE STRING POINTED TO BY MAIN. ID ON THE SCREEN 
AND REPEAT THEN CALLING GET. KEY. 

ARGUMENT: X = POINTER TO THE ACTUAL MENU. 

EQU 0E2C5 BOOTSTRAP THE PERSONAL COMPUTER 



SET. U. PC EQU 0E2D5 SET THE MICRO PROGRAM COUNTER 

******** 

LOAD. U. RAM EQU 0E3B3 LOAD THE MICRO-RAM FROM THE EPROM'S 

********** 



PANEL 
SUBMONIT 
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208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 



PUSH.X 

****** 

PULL . X 

****** 

PRINT, X 

******* 

WUM 

ft* * 



RUM 

*** 



STUPC 

***** 



EXX 

*** 



RCPU 

*** * 



WCPU 

*» ** 



EPMIR 

***** 

EDMIR 

***** 

LDMIR 

***** 



MCLK 



EQU 0C259 
STORES X ON STACK 

EQU 0C270 

RETRIEVES X FROM STACK 

EQU 0C287 

PRINTS THE CONTENT OF THE X-REGISTER 

EQU 0C17B 

WRITE MICRO MEMORY ROUTINE 

UMEM(X,B):=A 

EQU 0C190 

MICRO MEMORY READ ROUTINE 

A:=UMEM(X,B) 

EQU 0C1C2 

STORE MICRO PROGRAM COUNTER 

PREPARES MICROCONTROLLER FOR EXECUTION AT ADDRESS IN X 

UPC:=X 

EQU 0C117 

EXECUTES MICRO INSTRUCTION POINTED TO BY X 

X POINTS TO MOST SIGNIFICANT BYTE 

MOST SIGNIFICANT BYTE HAS LOWEST ADDRESS 

X IS INCREMENTED BY 5 

EQU 0C1F0 
READ CPU DATA BUS 
B GETS TOP HALF 
A GETS BOTTOM HALF 

EQU 0C1F7 

WRITE CPU DATA REGISTER 

CPU BUS REGISTER :- B*256 ♦ A 

DATA IS GATED TO BUS WHEN SOURCE 13 IS ADDRESSED 

EQU 0C15F 

ENABLE PERSONAL COMPUTER MIR REGISTER 

EQU 0C158 

DIAGNOSTIC PANEL MIR REGISTER IS ENABLED 

EQU 0C11D 

DIAGNOSTIC PANEL MIR REGISTER IS LOADED WITH 

DATA POINTED TO BY X 

MOST SIGNIFICANT BYTE HAS THE LOWEST ADDRESS 

X IS RETURNED INCREMENTED BY 5 

RETURNS WITH DIAGNOSTIC MIR REGISTER ENABLED 

NO CPU CLOCK PULSE IS GIVEN 

USEFUL TO GATE DATE NON-DESTRUCTIVELY TO CPU BUS 

EQU 0C1AC 

SEND ONE MICRO CLOCK PULSE (DISABLE CPU CLOCK) 



PANEL 
SUBMONIT 
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264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 



RMM EQU 0C1FE 

READ MAIN MEMORY 
B:= MAIN(X)DIV 256 
A:= MAIN(X)MOD 256 

RMMS EQU 8C211 

**** SHORT (QUICK) VERSION OF RMM 

MAY ONLY BE USED AFTER A LONG VERSION CALL HAS BEEN MADE AND 

* NO OTHER DMIR OPERATIONS HAVE OCCURED 

WMM EQU 0C228 

•*• WRITE MAIN MEMORY 

« MAIN(X):=256*B * A 

WMMS EQU 0C23D 

«*«» SHORT VERSION OF WMM. SEE RMMS COMMENTS 

LATCH EQU 0C151 

***** MICRO MEMORY ADDRESS REGISTER IS LATCHED 

UNLCH EQU 0C14A 

***** MICRO MEMORY ADDRESS REGISTER IS UNLATCHED 

D2911 EQU 0C13E 

***** MICRO MEMORY ADDRESS OUTPUTS FROM PERSONAL COMPUTER 

* ARE DISABLED AND ADDRESS REGISTER FROM DIAGNOSTIC 

* PANEL IS ENABLED 

E2911 EQU 0C174 
***** REVERSE OF D2911 

STOP EQU 0C16D 

**** DISABLE CPU CLOCK AND ENABLE SINGLE STEP MODE 

START EQU 0C166 
***** ENABLE CPU CLOCK 

RESET EQU 0C290 

***** RESET COMPUTER; INITIATE STAT0 VECTOR 

READ. REG EQU 0C2DD 
*.,.*,«. READ A 2901 REGISTER 

ARGUMENT: B = NR OF THE REGISTER ( . . 0F OR Q.REG) 

RESULT: X = THE VALUE 



EQU 0C2A5 

MIR USED BY THE READ. REG 

EQU 0C2AA 
LOAD A 2901 REGISTER 

ARGUMENTS: B = NR OF THE REGISTER ( 0..0F OF Q.REG) 
X = VALUE TO BE LOADED 



READ.R 


****** 


LOAD. REG 


**#**** 



WRITE. R EQU 0C2A0 

«*..*.. MIR USED BY LOAD. REG 
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SUBMONIT 

321 PRINT. BUS EQU 0E1AA 

322 «»«**«**» PRINTS AN ERRORMESSAGE AND THE REGISTERS WITH THE VALUE OF 

323 * THE CPU-BUS INSTEAD OF THE REGISTERS B,A 
324 

325 

326 

327 

328 

329 

330 « ASCII CHARACTERS 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 RET EQU 2080 (JMP 0) 'RETURN' - ADDRESS FOR PUSHX/PULLX 

371 

372 

373 

374 



LF 


EQU 


0A 


CR 


EQU 


0D 


DC1 


EQU 


11 


ESC 


EQU 


IB 


RS 


EQU 


IE 


EXCLAM 


EQU 


21 


AMPERSAND 


EQU 


26 


LOWER. E 


EQU 


65 


LOWER. P 


EQU 


70 


RUBOUT 


EQU 


7F 


BLANK 


EQU 


20 


LOWER. U 


EQU 


75 


QUESTION. M 


EQU 


3F 


PROMPT 


EQU 


2A 


COMMA 


EQU 


2C 


BACK. SLASH 


EQU 


5C 


* 


I/O 


ADDRESSES 


HP. STATUS 


EQU 


4000 


HP. DATA 


EQU 


4881 


MIR4 


EQU 


3C08 


MIR3 


EQU 


3C09 


MIR2 


EQU 


3C0A 


MIR1 


EQU 


3C0B 


MIR0 


EQU 


3C0C 


CPU1 


EQU 


3C0E 


CPU0 


EQU 


3C0F 


CON0 


EQU 


3C13 


CON1 


EQU 


3C12 


MEMPU 


EQU 


3C14 


SSP 


EQU 


3C15 


UAR1 


EQU 


3C18 


UAR0 


EQU 


3C11 


Q.REG 


EQU 


10 


STACK 


EQU 


07F 


RET 


EQU 


2008 (JMP 0) 


* 


EXTERNAL ENTRY POINTS 


MONITOR 


EQU 


0E000 



PANEL 
SUBMONIT 
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376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

398 

391 

392 

393 

394 

395 

396 

397 

398 

399 

408 

401 

402 

403 

404 

405 

406 

407 0800 

408 

409 

410 002C 

411 002E 

412 8S2F 
413 

414 0030 

415 0032 

416 0034 
417 

418 
419 

420 0036 

421 2003 

422 2006 

423 2009 

424 200C 

425 200F 



« 


VARIABLES 




ACT. MENU 


EQU 


9 


(WORD 


0) 


MAIN. ID 


EQU 


0B 


(WORD 


0) 


SUB. ID 


EQU 


8D 


(WORD 


0) 


C 


EQU 





(BYTE 


0) 


X.SAVE 


EQU 


1 


(WORD 


0) 


ADDR 


EQU 


13 


(WORD 


0) 


X.WORD 


EQU 


0F 


(WORD 


8) 


CARR 


EQU 


11 


(BYTE 


0) 


CHECK. SUM 


EQU 


17 


(BYTE 


0) 


STAT0 


EQU 


3 


(BYTE 


0) 


MTMP4 


EQU 


4 


(BYTE 


0) 


MTMP3 


EQU 


5 


(BYTE 


0) 


MTMP2 


EQU 


6 


(BYTE 


0) 


MTMP1 


EQU 


7 


(BYTE 


0) 


MTMP0 


EQU 


8 


(BYTE 


0) 


TYPING 


EQU 


16 


(BYTE 


1) 


PSEUDO.IRQ 


EQU 


21 






XSUM 


EQU 


25 


(BYTE 


0) 


CRNT.ADR 


EQU 


26 


(WORD 


0) 


USER. DATA 


SET 


2C 







ADDRESS OF THE ACTUAL MENU 



DUMMY REGISTERS, 

FOR STRICTLY LOCAL USE ONLY 

USED BY DUMP AND DUMP. LINE 

SAVE WORD FOR X, USED BY GET. WORD, 

AND MENU 

'CARRY'-BYTE (RESULT OF GET. WORD) 

USED BY READBLOCK (LOAD) 



00 

00 00 
00 00 

00 00 



7E 22 15 

7E 23 DF 
7E 25 5D 
7E EB 00 
7E 27 73 



VALUE 

CL 

COUNT 

ADR 

HELP1 

HELP2 

HELP3 



ORG USER. DATA 

VARIABLES 

VARIABLES USED IN MAIN MEMORY 

USED IN INSPECT, LOAD 
CHECK LOAD FLAG 



CONTROLS TYPING ERRORMESSAGES 

CHECKSUM (MICRO) 

CURRENT ADR (MICRO, MAIN MEMORY) 

NEXT FREE LOCATION FOR DATA IN THE 
ZERO-PAGE 



IS SPECIFIED ON ROM FILE 



WORD 

BYTE 

BYTE 

EQU 

WORD 

WORD 

WORD 



USE 
ORG 
JMP 
JMP 
JMP 
JMP 
JMP 



EXEC , MAINMEM , DEVICES , MICROMEM 



2003 

MAINMEM 

EXEC 

DEVICES 

MONITOR 

MICROMEM 



BEGIN OF RAM 



2012 



SUBMONIT 

428 2012 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 
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BEGIN MAINMEM 

DEF MAINMEM, XINSPECT, BYTE. INSP 

USE MMLOAD, LOAD, CHECK. LOAD 



FOLLOWING ROUTINES ARE SUPPLIED (SEE ALSO MENU) 
I INSPECT MAIN MEMORY AND CHANGE IT 
L LOAD MAIN MEMORY FROM TAPE 



* 

INSPECT AND CHANGE MAIN MEMORY 

WILL BE USED IN MONITOR EXECUTER 



INSPECT 
XINSPECT 



2812 
2015 
2317 
2819 
20 IB 
201E 
2021 
2823 
2825 
2028 



FE 3C 10 
DF 34 
DE 0F 
DF 26 
BD CI 58 
BD CI FE 
D7 2C 
97 2D 
CE 00 2C 
BD C0 E3 



LOOP 



EQU * 
EQU « 
BEGIN INSPECT 



FORMAT 

ADDRESS 'I' VALUE [ ':' NEWVALUE ] [','] 

ADDRESS - UP TO 4 HEX DIGIT 

NEWVALUE = UP TO 4 HEX DIGIT 

PROCEDURE INSPECT; 
BEGIN X := X.WORD; 
LOOP 

CRNT.ADR := X; (A,B) :- RMM(X); 

VALUE := (A,B); OUT.WORD(VALUE); 

R.CH(A); 

IF A = ' : ' THEN 

GET. WORD; (A,B) 
END; 

IF A = BACKSLASH 
THEN 

DEC(X); 
ELSIF A - ' , ' 
THEN 

INC(X); 
ELSE 

EXIT 
END; 

CRNT.ADR := X; 

CRLF; OUT. WORD (CRNT.ADR); WRITE( ' ') 
END 
END 

LDX UAR1 

STX HELP3 

LDX X.WORD 

STX CRNT.ADR 

JSR EDMIR 

JSR RMM 

STAB VALUE 

STAA VALUE+1 

LDX =VALUE 

JSR OUT. WORD 



X.WORD; X := CRNT.ADR; VMM(A,B,X); 



SAVE UADR 



HIGHER PART 
LOWER PART 
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SUBMONIT 


MAINMEM INSPECT 








484 


202B 


BD 


C0 


24 




JSR 


R.CH 




485 


202E 


81 


3A 






CMPA 


_ 1 , 1 




486 


2030 


26 


0E 






BNE 


ENDIF1 




487 


2832 


BD C2 FE 




JSR 


GET. WORD 




488 


2035 


36 








PSH 


A 


SAVE DELIMITER 


489 


2036 


D6 


0F 






LDAB 


X.WORD 


HIGHER PART 


490 


2038 


96 


18 






LDAA 


X.WQRD+1 


LOWER PART 


491 


203A 


DE 


26 






LDX 


CRNT.ADR 




492 


203C 


BO 


C2 


28 




JSR 


WMM 




493 


203F 


32 








PUL 


A 


GET DELIMITER 


494 


2840 


81 


2C 




ENDIF1 


CMPA 


=COMMA 




495 


2042 


27 


0D 






BEQ 


ENDIF2 




496 


2044 


81 


5C 






CMPA 


=BACK. SLASH 


497 


2846 


27 


0E 






BEQ 


ENDIF3 




498 


2848 


DE 


34 






LDX 


HELP3 


RELOAD UADR 


499 


204A 


BD 


CI 


C2 




JSR 


STUPC 




500 


284D 


BD 


CI 


5F 




JSR 


EPMIR 




501 


2858 


39 








RTS 






502 


















503 


2851 


DE 


26 




ENDIF2 


LDX 


CRNT.ADR 




584 


2053 


08 








INX 






505 


2054 


20 


03 






BRA 


ENDIF 




586 


2056 


DE 


26 




ENDIF3 


LDX 


CRNT.ADR 




507 


2858 


09 








DEX 






508 


2859 


DF 


26 




ENDIF 


STX 


CRNT.ADR 




509 


285B 


BD 


C0 


78 




JSR 


W.CRLF 




510 


285E 


BD 


C2 


87 




JSR 


PRINT. X 




511 


2061 


BD 


C0 


62 




JSR 


W.l. BLANK 




512 


2064 


20 


B8 






BRA 


LOOP 




513 


2066 










END 


INSPECT 
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SUBMONIT MAINMEM 



515 










BYTEINSP 


EQU 


* 


516 


2066 










BEGIN 


BYTE 


517 










* 






518 










* 


INSPECT AND CHANGE MAIN MEMORY IN BYTES 


519 










* 


FORMAT SIMILAR TO NORMAL INSPECT 


520 










* 






521 










* 


PROCEDURE BYTEINSPECT 


522 










* 


VAR 


HELP1: BOOLEAN; (« 0=TRUE,FF=FALSE *) 


523 










* 


BEGIN AB:=X.WORD 


524 










* 


CRNT.ADR:= AB/2; HELP1 := AB/2 MOD 2 = 0; 


525 










* 


LOOP 


526 










* 




A,B := RMM(CRNT.ADR); HELP2 :- A,B; 


527 










* 




IF HELP1-0 THEN OUTBYTE(A) ELSE OUTBYTE(B) END; 


528 










* 




R.CH(A); 


529 










* 




IF CH = ':• THEN GETWORD; 


530 










» 




IF HELP1=0 THEN HELP2(L0V) :-X.WORD(LOV) 


531 










* 




ELSE HELP2(HIGH):=X.V0RD(L0W) 


532 










* 




END; 


533 










* 




WMM(HELP2, CRNT.ADR); 


534 










* 




END 


535 










« 




IF CH = BACK. SLASH 


536 










« 




THEN 


537 










* 




HELP1 := NOT HELP1; 


538 










* 




IF NOT HELP1 THEN DEC(CRNT. ADR) END; 


539 










» 




ELSIF CH - 


540 










* 




THEN 


541 










* 




HELP1 := NOT HELP1; 


542 










C 




IF HELP1 THEN INC(CRNT.ADR) END; 


543 










* 




ELSE 


544 










« 




EXIT 


545 










* 




END 


546 










* 


END; 


547 










* 


END 


BYTEINSPECT; 


548 










* 






549 


2066 


FE 


3C 


10 




LDX 


UAR1 


550 


2069 


DF 


34 






STX 


HELP3 


551 


206B 


7F 


00 


30 




CLR 


HELP1 


552 


206E 


96 


10 






LDAA 


X.WQRD+1 


553 


2070 


D6 


0F 






LDAB 


X.WORD HIGHER BYTE 


554 


2072 


54 








LSR 


B 


555 


2073 


46 








ROR 


A 


556 


2074 


24 


03 






BCC 


BYTINS1 


557 


2076 


73 


09 


30 




COM 


HELP1 


558 


2079 


D7 


26 




BYTINS1 


STAB 


CRNT.ADR 


559 


207B 


97 


27 






STAA 


CRNT.ADR+1 


560 


207D 


BD 


CI 


58 




JSR 


EDMIR 


561 
















562 


2080 


DE 


26 




BLOOP 


LDX 


CRNT.ADR 


563 


2082 


BD 


CI 


FE 




JSR 


RMM 


564 


2085 


36 








PSH 


A 


565 


2086 


17 








TBA 




566 


2887 


33 








PUL 


B 


567 


2088 


D7 


32 






STAB 


HELP2 


568 


208A 


97 


33 






STAA 


HELP2+1 


569 


208C 


7D 


00 


30 




TST 


HELP1 


570 


2B8F 


27 


01 






BEQ 


BYTINS2 



SUBMONIT MAINMEM BYTE 
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571 2091 

572 2092 

573 2095 

574 2098 

575 209A 

576 209C 

577 209F 

578 20A0 

579 20A2 

580 20A5 

581 20A7 

582 20A9 

583 20AB 

584 20AD 

585 20AF 

586 20B1 

587 20B3 

588 20B6 

589 20B7 

590 20B9 

591 20BB 

592 20BE 

593 20C0 

594 20C2 

595 20C3 

596 20C5 

597 20C7 

598 20C9 

599 20CC 

600 20CE 

601 20D0 

602 20D1 

603 20D3 

604 20D5 

605 2BD7 

606 2BDA 

607 20DD 

608 20DE 



17 

BD C0 C9 

BD C0 24 

81 3A 

26 IB 

BD C2 FE 

36 

96 10 

7D 00 30 
26 04 

97 33 
20 02 
97 32 
D6 33 
96 32 
DE 26 

BD C2 28 

32 

81 5C 

26 0A 

73 00 30 

27 C0 
DE 26 
09 

20 0C 
81 2C 
26 0C 
73 00 30 
26 B2 
DE 26 
08 

DF 26 
20 AB 
DE 34 
BD CI C2 
BD CI 5F 
39 



BYTINS2 



BYTINS3 
BYTINS4 



IF 



ELSIF 



THEN 



ELSE 



TBA 

JSR 

JSR 

CMPA 

BNE 

JSR 

PSH 

LDAA 

TST 

BNE 

STAA 

BRA 

STAA 

LDAB 

LDAA 

LDX 

JSR 

PUL 

CMPA 

BNE 

COM 

BEQ 

LDX 

DEX 

BRA 

CMPA 

BNE 

COM 

BNE 

LDX 

INX 

STX 

BRA 

LDX 

JSR 

JSR 

RTS 

END 



OUT. BYTE 
R.CH 

IF 

GETWORD 

A 

X.WORD+1 

HELP1 

BYTINS3 

HELP2+1 

BYTINS4 

HELP2 

HELP2+1 

HELP2 

CRNT.ADR 

WMM 

A 

-BACK. SLASH 

ELSIF 

HELP1 

BLOOP 

CRNT.ADR 

THEN 

-COMMA 

ELSE 

HELP1 

BLOOP 

CRNT.ADR 

CRNT.ADR 

BLOOP 

HELP3 

STUPC 

EPMIR 

BYTE 



SAVE DELIMITER 
LOWER BYTE 



CHANGE LOWER BYTE 



CHANGE UPPER BYTE 



RESAVE DELIMITER 
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SUBMONIT MAINMEM 



610 20DE BEGIN LOADER 

611 DEF MMLOAD, LGETWORD 

612 » ABSOLUTE LOADER 
613 

614 « LOAD MAIN MEMORY FROM TAPE 

615 « FORMAT ON TAPE: 

616 • 'NR OF WORDS' 'LOAD ADR' ! INFO " ,'CHSUM' 

617 « ALL IS LOADED IN WORDS 

618 * EACH WORD IS CODED: 

619 « WORD := (CHI- 'A') + 16»(CH2-'A') + 256*(CH3- 'A') « 4096* (CH4- 'A') 
620 

621 * PROCEDURE GETBYTE(VAR A:BYTE); EXTERN; (« DEFINED IN MICRO MEMORY ») 
622 

623 * PROCEDURE LGETWORD; 

624 « (* CONVERT 4 CHARACTER FROM TAPE INTO ONE 16BIT WORD «) 

625 « BEGIN 

626 * GETBYTE; VALUE1 := A; 

627 « GETBYTE; VALUE0 := A; 

628 « LINESUM :- LINESUM + VALUE; 

629 * END; 
630 

631 « PROCEDURE MMLOAD; 

632 « BEGIN 

633 « LINE. READ; 

634 « LOOP LINESUM :- 0; 

635 » LGETWORD; 

636 * IF VALUE - THEN EXIT END; 

637 « B := VALUE; (« COUNTER*); 

638 * LGETWORD; CRNT.ADR := X := VALUE; 

639 * REPEAT PUSH(B); 

640 « LGETWORD; 

641 » WMM(VALUE.X); 

642 * INC(X); POP(B); DEC(B); 

643 « UNTIL B=0; 

644 « LGETWORD; (*CHSUM») 

645 * IF LINESUMO0 THEN W.CH(QUESTIONMARK); EXIT END; 

646 * END 

647 * G.REG := M[l]; 

648 * SUM(GLOBSUM) ; 

649 « END 

650 « 
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SUBMONIT 


MAINMEM LOADER 






652 










LINESUM EQL 


CHECK 


.SUM 


653 
















654 
















655 


20DE 


BD 


E0 


63 


GETCH 


JSR 


READ.CH 


656 


20E1 


81 


2E 






CMPA 


— ' ' 


657 


20E3 


26 


19 






BNE 


L3 


658 
















659 


20E5 


BD 


E0 


03 


LI 


JSR 


READ.CH 


660 


20E8 


81 


BD 






CMPA 


=CR 


661 


20EA 


26 F9 






BNE 


LI 


662 


20EC 


BD 


C0 


FB 




JSR 


LINEREAD 


663 
















664 


20EF 


BD 


E0 


03 


L2 


JSR 


READ.CH 


665 


20F2 


81 


0D 






CMPA 


=CR 


666 


20F4 


26 F9 






BNE 


L2 


667 


20F6 


31 








INS 




668 


20F7 


31 








INS 




669 


20F8 


31 








INS 




670 


20F9 


31 








INS 




671 


20FA 


31 








INS 




672 


20FB 


31 








INS 




673 


20FC 


31 








INS 




674 


20FD 


39 








RTS 




675 
















676 


20FE 


81 


BD 




L3 


CMPA 


=CR 


677 


2108 


26 


05 






BNE 


L4 


673 


2102 


BD 


C0 


FB 




JSR 


LINE. READ 


679 


2105 


28 


D7 






BRA 


GETCH 


680 
















681 


2107 


81 


41 




L4 


CMPA 


= 'A' 


682 


2109 


2D 


03 






BLT 


GETCH 


683 


210B 


80 


41 






SUBA 


= 'A' 


684 


210D 


39 








RTS 




685 
















686 


210E 


37 






GET. BYTE 


PSH 


B 


687 


210F 


80 


CD 






BSR 


GET.CH 


688 


2111 


16 








TAB 




689 


2112 


8D 


CA 






BSR 


GET.CH 


690 


2114 


48 








ASL 


A 


691 


2115 


48 








ASL 


A 


692 


2116 


48 








ASL 


A 


693 


2117 


48 








ASL 


A 


694 


2118 


IB 








ABA 




695 


2119 


16 








TAB 




696 


211A 


33 








PUL 


B 


697 


211B 


39 








RTS 
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SEITE NR 




SUBMONIT 


MAINMEM LOADER 










699 


211C 


BD 


21 0E 


LGETWORD 


JSR 


GETBYTE 






700 


211F 


97 2D 






STAA 


VALUE+1 


LOWER PART 




701 


2121 


BD 


21 


0E 




JSR 


GETBYTE 






702 


2124 


97 


2C 






STAA 


VALUE 


UPPER PART 




703 


2126 


96 


2D 






LDAA 


VALUE+1 


ADD ; LOWER 




704 


2128 


9B 


18 






ADDA 


LINESUM+1 






705 


212A 


97 


18 






STAA 


LINESUM+1 






706 


212C 


95 


2C 






LDAA 


VALUE 


UPPER PART WITH CARRY 




707 


212E 


99 


17 






ADCA 


LINESUM 






708 


2130 


97 


17 






STAA 


LINESUM 






709 


2132 


39 








RTS 








710 










* 










711 


2133 


BD 


C0 


FB 


MMLOAD 


JSR 


LINE. READ 






712 


2136 


4F 






LOOP 


CLR 


A 






713 


2137 


97 


17 






STAA 


LINESUM 


LINESUM :- 




714 


2139 


97 


18 






STAA 


LINESUM+1 






715 


213B 


BD 


21 


1C 




JSR 


LGETWORD 






716 


213E 


D6 


2D 






LDAB 


VALUE+1 






717 


2140 


5D 








TST 


B 


NR OF WORDS HAS BYTE SIZE 




713 


2141 


27 


2C 






BEQ 


ENDLOOP 






719 


2143 


BD 


21 


1C 




JSR 


LGETWORD 


GET LOAD ADR 




720 


2146 


DE 2C 






LDX 


VALUE 






721 


2148 


DF 


26 






STX 


CRNT.ADR 






722 


214A 


BD 


CI 


58 




JSR 


EDMIR 






723 


214D 


37 






REP 


PSH 


B 






724 


214E 


BD 


21 


1C 




JSR 


LGETWORD 






725 


2151 


96 


2C 






LDAA 


VALUE 


LOWER PART 




726 


2153 


D6 


2D 






LDAB 


VALUE+1 


UPPER PART 




727 


2155 


BD 


C2 


28 




JSR 


WMM 


WRITE MAIN MEMORY 




728 


2158 


08 








INX 








729 


2159 


33 








PUL 


B 






730 


215A 


5A 








DEC 


B 






731 


215B 


26 


F0 






BNE 


REP 






732 










* 


STX 


HIGH. M, ADR 






733 


215D 


BD 


21 


1C 




JSR 


LGETWORD 


CHECKSUM 




734 


2160 


7D 


80 


17 




TST 


LINESUM 






735 


2163 


26 


05 






BNE 


XSUMERR 


CHECKSUM ERROR 




736 


2165 


7D 


00 


18 




TST 


LINESUM+1 






737 


2168 


27 


CC 






BEQ 


LOOP 


OK GO ON 




738 


216A 


86 


3F 




XSUMERR 


LDAA 


-QUESTION. M 






739 


215C 


BD 


CB 


51 




JSR 


W.CH 






740 


216F 


BD 


CI 


5F 


ENDLOOP 


JSR 


EPMIR 






741 


2172 


39 








RTS 








742 


2173 










END 


LOADER 







16 



SUBMONIT MAINMEM 
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744 


2173 










BEGIN 


LOAD 




745 












DEF 


LOAD .CHECK 


LOAD 


746 


















747 


2173 


BD 


E0 


83 


SKIP 


JSR 


READ.CH 


SKIP A LINE 


748 


2176 


81 


BD 






CMPA 


=CR 




749 


2178 


26 


F9 






BNE 


SKIP 




750 


217A 


39 








RTS 






751 


















752 










READ. LINE 


EQU 


* 




753 


217B 


BD 


C0 


FB 




JSR 


LINE. READ 


START TAPE 


754 


















755 


217E 


BD 


EB 


03 


REPEAT 


JSR 


READ.CH 




756 


2181 


81 


53 






CMPA 


= 'S' 




757 


2183 


26 


F9 






BNE 


REPEAT 


SKIP UNTIL ' 


758 


















759 


2185 


BD 


EB 


03 




JSR 


READ.CH 




760 


2188 


81 


30 






CMPA 


= '0' 




761 


218A 


26 


64 






BNE 


NOT. HEAD 




762 


218C 


8D 


E5 






BSR 


SKIP 


HEADER 


763 


218E 


20 


EB 






BRA 


READ. LINE 




764 


















765 


2190 


81 


39 




NOT. HEAD 


CMPA 


= '9' 




766 


2192 


26 


64 






BNE 


NOT. EOF 




767 


2194 


8D 


DD 






BSR 


SKIP 


EOF 


768 


2196 


20 6B 






BRA 


EO.LAST.LN 


(A=CR) 


769 


















778 


2198 


81 


32 




NOT. EOF 


CMPA 


= '2' 




771 


219A 


26 


61 






BNE 


ERR 




772 


















773 


219C 


BD 


E0 


1A 




JSR 


READ. BYTE 




774 


219F 


97 


2F 






STAA 


COUNT 


BYTE COUNT 


775 


21A1 


97 


17 






STAA 


CHECK. SUM 


! 


776 


















777 


21A3 


7A 


00 


2F 




DEC 


COUNT 




778 


21A6 


27 


4D 






BEQ 


XS. CHECK 




779 


















780 


21A8 


CE 


m 


26 




LDX 


=CRNT.ADR 




781 


21AB 


BD 


EB 


27 




JSR 


READ. WORD 


LOAD ADDRESS 


782 


















783 


21AE 


AB 


0B 






ADDA 


0,X 




784 


21B0 


AB 


01 






ADDA 


1,X 




785 


21B2 


97 


17 






STAA 


CHECK. SUM 





SUBMONIT MAINMEM LOAD 
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787 


21B4 


DE 


26 






LDX 


CRNT.ADR 




788 


21B6 


BD 


CI 


58 




JSR 


EDMIR 




789 


21B9 


7A 


09 


2F 


WHILE 


DEC 


COUNT 




790 


21BC 


7A 


00 


2F 




DEC 


COUNT 




791 


21BF 


27 


34 






BEQ 


XS. CHECK 




792 


















793 


21C1 


BD 


E0 


1A 




JSR 


READ. BYTE 




794 


21C4 


16 








TAB 






795 


21C5 


BD 


E0 


1A 




JSR 


READ. BYTE 




796 


















797 


21C8 


7D 


63 


2E 




TST 


CL 




798 


21CB 


27 


ID 






BEQ 


LOADING 




799 


21CD 


D7 


2C 




TESTING 


STAB 


VALUE 




800 


21CF 


97 


2D 






STAA 


VALUE+1 




801 


21D1 


BD 


CI 


FE 




JSR 


RMM 




802 


21D4 


Dl 


2C 






CMPB 


VALUE 




803 


21D6 


25 


84 






BNE 


ERROR 




804 


21D8 


91 


2D 






CMPA 


VALUE* 1 




805 


2 IDA 


27 


11 






BEQ 


OK 




806 


2 IDC 


36 






ERROR 


PSH 


A 




807 


21DD 


8D 


94 






BSR 


SKIP 




808 


2 IDF 


32 








PUL 


A 




809 


21E0 


3F 








SWI 






810 


21E1 


DE 


2C 






LDX 


VALUE 




811 


21E3 


BD 


C0 60 




JSR 


W. 2. BLANK 




812 


21E6 


BD 


C2 


87 




JSR 


PRINT. X 




813 


21E9 


39 








RTS 






814 


















815 


21EA 


BD 


C2 


28 


LOADING 


JSR 


VMM 




816 


















817 


21ED 


9B 


17 




OK 


ADDA 


CHECK. SUM 




818 


21EF 


IB 








ABA 






819 


21F0 


97 


17 






STAA 


CHECK. SUM 




820 


21F2 


08 








INX 






821 


21F3 


20 


C4 






BRA 


WHILE 




822 


















823 


21F5 


BD 


E0 


1A 


XS. CHECK 


JSR 


READ. BYTE 




824 


21F8 


43 








COM 


A 




825 


21F9 


91 


17 






CMPA 


CHECK. SUM 




826 


21FB 


27 


05 






BEQ 


EOL 




827 


















828 


21FD 


96 


3F 




ERR 


LDAA 


QUESTION. M 




829 


2 IFF 


BD 


C0 


51 




JSR 


W.CH 




830 


















831 


2202 


4F 






EOL 


CLR 


A 


A#0 <=> EOF 


832 


2203 


BD 


CI 


5F 


EO.LAST.LN 


JSR 


EPMIR 




833 


2206 


39 








RTS 






834 


















835 


















836 


2207 


97 


2E 




CHECK. LOAD 


STAA CL 




837 


2209 


20 


03 






BRA 


LOOP 




838 


















839 


220B 


7F 


00 


2E 


LOAD 


CLR 


CL 




848 


















841 


220E 


BD 


21 


7B 


LOOP 


JSR 


READ. LINE 




842 


2211 


4D 








TST 


A 
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SUBMONIT MAINMEM LOAD 

843 2212 27 FA BEQ LOOP 

844 2214 39 RTS 
845 

846 2215 END LOAD 
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SUBMONIT MAINMEM 



LDX 


-M. TITLE 


STX 


MAIN. ID 


LDAA 


STAT0 


ANDA 


=BBF 


STAA 


STAT0 


STAA 


CON0 


JSR 


EDMIR 


LDX 


-READ.R 


JSR 


EXX 


JSR EPMIR 


LDX 


=MAINMMENU 


JMP 


COMMANDS 


BYTE 


'MAIN MEMORY 



848 2215 CE 22 35 MAINMEM 

849 2218 DF 0B 

850 22 1A 96 03 

851 221C 84 BF ANDA =0BF STOP RUNNING CLOCK K =0FD 

852 221E 97 03 

853 2220 B7 3C 13 

854 2223 BD CI 58 JSR EDMIR EXECUTE ONE INSTRUCTION TO PUT 

855 2226 CE C2 A5 LDX =READ.R MEMORY IN A DEFINED STATE 

856 2229 BD CI 17 

857 222C BD CI 5F 

858 222F CE 22 41 

859 2232 7E C3 91 
860 
861 2235 4D 41 49 M. TITLE 

2238 4E 20 4D 

223B 45 4D 4F 

223E 52 59 00 
862 

863 2241 05 MAINMMENU BYTE 5 

864 2242 49 20 49 BYTE 'I INSPECT ',0 
2245 4E 53 50 
2248 45 43 54 
224B 00 

865 224C 20 12 WORD INSPECT 

866 224E 4C 20 4C BYTE 'LLOAD',0 
2251 4F 41 44 
2254 00 

867 2255 22 0B WORD LOAD 

868 2257 4F 20 4F BYTE ' OLD FORMAT LOAD ', 
225A 4C 44 20 
225D 46 4F 52 
2260 4D 41 54 
2263 20 4C 4F 
2266 41 44 00 

869 2269 21 33 WORD MMLOAD 

870 226B 52 20 52 BYTE 'R REREAD ',0 
226E 45 52 45 
2271 41 44 00 

871 2274 22 07 • WORD CHECK. LOAD 

872 2276 59 20 42 BYTE 'Y BYTE INSPECT' ,0 
2279 59 54 45 
227C 20 49 4E 
227F 53 50 45 
2282 43 54 00 

873 2285 20 66 WORD BYTE.INSP 
874 
875 2287 END MAINMEM 
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FROM MAIN MEMORY MONITOR 





SUBMONIT 










878 


2287 










BEGIN EXECUTER 


879 












USE XINSPECT.BYTE.INSP.PCTOBUS FROM 


880 












DEF EXEC 


881 










* 




882 










* 


EXECUTE ROUTINES FOR SOFTWARE TESTING 


883 










* 




884 










* 


FOLLOWING ROUTINES ARE SUPPLIED 


885 










* 


R RESET THE COMPUTER 


886 










* 


N EXECUTE ONE MICROINSTRUCTION 


887 










* 


AND DISPLAY MICROADDRESS AND CPU BUS 


888 










* 


G GO - START FREE RUNNING CLOCK 


889 










* 


H HALT FREE RUNNING CLOCK 


890 










* 


U DISPLAY CURRENT MICRO INSTRUCTION 


891 










* 


P SET MICRO PC 


892 










» 


X EXECUTE SINGLE MACRO STEP 


893 










* 




894 










***************** a *#****#***a***##*3R**a3it*aa ww ****** ik *a 


895 










« 




896 










NEXTI 


EQU * 


897 


2287 










BEGIN NEXTINSTR 


898 










4 


PROCEDURE NEXTI 


899 










« 


BEGIN 


900 










* 


IF CARRY THEN X :- X.WORD 


901 










* 


LOOP DEC(X); 


902 










* 


IF X=0 THEN EXIT END; 


903 










* 


SS; 


904 










* 


END; 


905 










» 


END; 


906 










* 


WRITE(MICROADR); 


907 










* 


SS; (* SINGLE STEP «) 


908 










* 


WRITE(' '); 


909 










* 


WRITE(CPU BUS); 


910 










* 


END; 


911 










* 




912 


2287 


24 


BA 






BCC END1 


913 


2289 


DE 


BF 






LDX X . WORD 


914 


228B 


09 






LOOP 


DEX 


915 


228C 


27 


05 






BEQ END1 


916 


228E 


B7 


3C 


15 




STAA SSP SINGLE STEP 


917 


2291 


20 


F8 






BRA LOOP 


918 


2293 


FE 


3C 


IB 


END1 


LDX UAR1 GET MICRO ADR 


919 


2296 


BD 


C2 


87 




JSR PRINTX 


920 


2299 


B7 


3C 


15 




STAA SSP MAKES A CPU CLOCK 


921 


229C 


BD 


C0 


62 




JSR W.l. BLANK 


922 


229F 


FE 


3C 


BE 




LDX CPU1 


923 


22A2 


BD 


C2 


87 




JSR PRINTX 


924 


22A5 


39 








RTS 


925 


22A6 










END NEXTINSTR 


926 










* 




927 










*«******#*#*'#**#*####******#** *•****»*«**#******» 


928 










DMICROINS 


EQU « 


929 










* 


DISPLAY CURRENT MICRO INSTRUCTION 


930 










* 




931 










» + 


PROCEDURE DISPLAYMICROINSTRUCTION 


932 










« 


BEGIN 


933 










* 


WRITE(UAR,' '); 



SUBMONIT EXECUTER 
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934 
935 
936 

937 22A6 

938 22A9 

939 22AC 

940 22AF 

941 22B2 

942 22B4 

943 22B7 

944 22B9 

945 22BC 

946 22BE 

947 22C1 

948 22C2 

949 22C3 

950 22C5 
951 

952 

953 22C5 

954 22C9 

955 22CC 

956 22CE 
957 

958 
959 
960 
961 
962 
963 
964 
965 
966 
967 

968 22D1 

969 22D4 

970 22D7 

971 22DA 

972 22DC 

973 22DE 

974 22E1 

975 22E3 

976 22E5 

977 22E6 

978 22E7 

979 22E8 

980 22E9 

981 22EC 

982 22EF 

983 22F1 

984 22F3 

985 22F5 
986 

987 22F6 
22F9 
988 
989 



BD C0 62 
FE 3C 10 
BD C2 87 
BD C0 62 

C6 05 
CE 3C 08 
A6 00 
BD C0 C9 
86 20 
BD C0 51 
08 
5A 

26 F2 
39 



BD C2 90 
CE 00 01 
DF 0F 
7E E2 D5 



CE 22 F6 
BD CI ID 
FE 3C 0E 
DF 30 
86 F2 
B7 3C 0C 

96 31 
D6 30 
48 

59 

48 

59 

BB 3C 0F 

F9 3C 0E 

97 31 
D7 30 
DE 30 
39 

2E 60 0C 
60 FE 



DMILOOP 



FOR 


I:- 5 DOW 


END 




JSR 


V.l. BLANK 


LDX 


UAR1 


JSR 


PRINTX 


JSR 


V.l. BLANK 


LDAB 


=5 


LDX 


=MIR4 


LDAA 


0,X 


JSR 


OUT. BYTE 


LDAA 


— ' ' 


JSR 


V.CH 


INX 




DEC 


B 


BNE 


DMILOOP 


RTS 




«********sx*sss 


JSR 


RESET 


LDX 


=1 


STX 


X.VORD 


JMP 


SET. U. PC 



5 DOVNTO 1 DO VRITE(MIR[I]) 



RESET1 



« PROCEDURE REAL. PC; 

(» GET THE REAL PC := 4«F+0FFSET *) 
BEGIN MIR := (F.REG -> BUS); 
« HELP1 := CPU1; 

MIR := (OFFSET -> BUS); 
HELP1 := 4-HELP1 + BUS; X ;= HELP1 
END REAL. PC; 



REAL. PC LDX 
JSR 
LDX 
STX 
LDAA 
STAA 
LDAA 
LDAB 
ASL 
ROL 
ASL 
ROL 
ADDA 
ADCB 
STAA 
STAB 
LDX 
RTS 

F. TO. BUS BYTE 



=F.TO.BUS 

LDMIR 

CPU1 

HELP1 

=0F2 

MIR0 

HELP1+1 

HELP1 

A 

B 

A 

B 

CPU0 

CPU1 

HELP1+1 

HELP1 

HELP1 



SRC 



OFFSET; DST 



NONE 



(B,A) := 4«F.REG + OFFSET 



2E,60,0C,60,0FE 



&***K«»*«#*#*S*##****#S***»*******»##* 



SUBMONIT EXECUTER 
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990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1060 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1089 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1827 
1028 
1029 
1839 
1031 
1032 
1033 
1034 
1035 
1036 

1037 
1038 
1039 
1848 

1041 
1842 
1843 

1044 
1B45 



MSS 



22FB 



22FB 25 85 
22FD CE 80 01 

2300 DF 0F 



2302 
2305 
2307 
2309 
230C 
230E 
2310 
2311 
2313 
2315 
2318 
231 A 
23 ID 
23 IF 
2322 
2325 
2328 
232B 
232E 
2331 
2334 
2337 
233A 
233B 
233E 
2340 



27 
B7 
28 



15 



15 



B6 3C 0C 
81 83 

85 

3C 

F4 
DE 0F 
09 
DF 0F 

27 05 
B7 3C 

28 E8 

BD CI 58 
8D B2 
BD C2 87 
BD C0 62 
FE 3C 8E 
BD C2 87 
BD C0 62 
BD CI 5F 
FE 3C 18 
BD C2 87 
B7 3C 15 
39 

2E 88 07 
60 02 



MSS1 



ENDWHILE 



CONT 



PCTOBUS 



EQU * 

EXECUTE SINGLE MACRO STEP 

DSIPLAY MACRO PC, MICRO PC 

BEGIN MSS 

DEF PCTOBUS 

REPEAT 

WHILE MIR8 <> 3 (* BUS SOURCE IR4 *) DO SS END; 

DEC(X.WORD); 
UNTIL X.WORD = 
OUTWORD(REAL.PC); WRITE ( ' '); 
LDMIR(BUS <- PC) 
OUT.WORD(BUS) 
WRITEC '); 
EPMIR; 

OUTWORD(UARl); 
SS; 
W.CRLF 



BCS MSS1 

LDX =1 

STX X.WORD 

LDAA MIR8 

CMPA =3 

BEQ ENDWHILE 

STAA SSP 

BRA MSS1 

LDX X.WORD 

DEX 

STX 

BEQ 



DEFAULT -> 1 MACRO STEP 



MAKE MICRO CLOCK 



X.WORD 

CONT 



STAA SSP 

BRA MSS1 

JSR EDMIR 

BSR REAL. PC 

JSR PRINTX 

JSR W.l. BLANK 

LDX CPU1 

JSR PRINTX 

JSR W.l, BLANK 

JSR EPMIR 

LDX UAR1 

JSR PRINTX 

STAA SSP 

RTS 

BYTE 2E, 0,7, 68, 02 



THERE IS STILL THE OFFSET FROM REAL. PC 



MAKE MICRO CLOCK 



NO ALU OPERATION, GATE PC TO BUS 



END MSS 

* 

PROCEDURE EXECUTE UNTIL GIVEN ADDRESS ENCOUNTERED 
BEGIN 

WHILE PCOX.WORD DO 

REPEAT SINGLE STEP UNTIL MIR0-3 (* IR4 «) 
END 
* END ; 



E 












MOTOROLA ASSEMBLE 




SUBMONIT EXECUTER 






1046 








BRPTl EQU 


* 


1047 


2340 


BD CI 


58 


BRKPOINT JSR 


EDMIR 


1048 


2343 


8D 8C 






BSR 


REAL. PC 


1049 


2345 


BD CI 


5F 




JSR 


EPMIR 


1050 


2348 


9C 0F 






CPX 


X.WORD 


1051 


234A 


26 01 






BNE 


BRPT2 


1052 


234C 


39 






RTS 




1053 


234D 


B7 3C 


15 


BRPT2 STAA 


SSP SINGLE STEP 


1054 


2350 


B6 3C 0C 




LDAA 


MIR0 


1055 


2353 


81 03 






CMPA 


=3 


1056 


2355 


26 F6 






BNE 


BRPT2 


1057 


2357 


20 E7 






BRA 


BRPTl 


1058 








***************************************** 


1059 








* 






1060 








* 


PROCEDURE TRACE. REG 


1061 








« 


BEGIN 




1062 
1063 
1064 








* 
* 
* 


FOR A := TO 8 DO WRITE( ' ',A:1, 
WRITE(' MPHSGLT '); 
FOR B := TO 16 DO 


1065 
1066 








* 
* 


READREG(B.X); WRITE(X, ' '); 
END 


1067 
1068 
1069 
1070 
1071 
1072 








* 
* 
* 
« 
* 
* 


WRITE(READREG(Q.REG); 
WRITE(F.REG); 
WRITE(OFFS) ; 
WRITELN(REAL.PC); 
WRITECQ F OFFS PC); 
END TRACE. REG 


1073 








* 






1074 


2359 


BD C0 


78 


TRACE. REG JSR 


W.CRLF 


1075 














1076 


235C 


CE 23 


BC 




LDX 


=TRTABLE 


1077 


235F 


BD C0 


60 


TRLD0P2 JSR 


W. 2. BLANK 


1078 


2362 


A6 00 






LDAA 


0,X 


1079 


2364 


BD C0 


51 




JSR 


W.CH 


1088 


2367 


BD C0 


60 




JSR 


V. 2. BLANK 


1081 


236A 


08 






INX 




1082 


236B 


8C 23 


CC 




CPX 


=TRTABLE+16Z 


1083 


236E 


26 EF 






BNE 


TRL00P2 


1084 














1085 


2370 


BD CI 


58 




JSR 


EDMIR 


1086 


2373 


5F 






CLR 


B 


1087 


2374 


BD C2 DD 


FOR.TR JSR 


READREG 


1088 


2377 


BD C2 


87 




JSR 


PRINTX 


1089 


237A 


BD C8 


62 




JSR 


W.l. BLANK 


1090 


237D 


5C 






INC 


B 


1091 


237E 


CI 10 






CMPB 


=18 


1092 


2380 


26 F2 






BNE 


FOR.TR 


1093 














1094 


2382 


C6 10 






LDAB 


=Q.REG 


1095 


2384 


BD C2 


DD 




JSR 


READREG 


1096 


2387 


BD C2 


87 




JSR 


PRINTX 


1097 


238A 


BD C0 


62 




JSR 


W.l. BLANK 


1098 














1099 


238D 


86 FE 






LDAA 


=0FE SRC=F.REG 


1100 


238F 


B7 3C 


0C 




STAA 


MIR0 


1101 


2392 


CE 3C 


0E 




LDX 


=CPU1 


1102 


2395 


BD C0 


E3 




JSR 


OUT. WORD 
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') END; 
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SUBMONIT EXECUTER 



JSR 


W.l. BLANK 


LDAA 


=0F2 SRC=OFFSET 


STAA 


MIR0 


LDX 


=CPU1 


JSR 


OUT. WORD 


JSR 


W.l. BLANK 


JSR 


REAL. PC 


JSR 


PRINT. X 


JSR 


W.CRLF 


LDX 


=SEC.LINE 


JSR 


W. STRING 


JSR 


EPMIR 


RTS 





1103 2398 BD C0 62 
1104 

1105 239B 86 F2 

1106 239D B7 3C 0C 

1107 23A0 CE 3C 0E 

1108 23A3 BD C0 E3 

1109 23 A6 BD C0 62 
1110 

1111 23A9 BD 22 Dl 

1112 23 AC BD C2 87 
1113 

1114 23AF BD C0 78 

1115 23B2 CE 23 CC 

1116 23B5 BD C0 6A 

1117 23B8 BD CI 5F 

1118 23BB 39 
1119 

1120 23BC 30 31 32 TRTABLE BYTE '012345678MPHSGLT' 
23BF 33 34 35 

23C2 36 37 38 

23C5 4D 50 48 

23C8 53 47 4C 

23CB 54 

1121 23CC 20 20 51 SEC. LINE BYTE ' Q F OFFS PC',0 
23CF 20 20 20 

23D2 20 46 20 

23D5 20 4F 46 

23D8 46 53 20 

23DB 20 50 43 

23DE 00 

1123 

1124 23DF CE 23 EA EXEC LDX =EXEC. TITLE 

1125 23E2 DF 0B STX MAIN. ID 

1126 23E4 CE 23 F3 LDX =EXEC.MENU 

1127 23E7 7E C3 91 JMP COMMANDS 
1128 

1129 23EA 45 58 45 EXEC. TITLE BYTE 'EXECUTER', 

23ED 43 55 54 

23F0 45 52 00 
1130 

1131 23F3 0C EXEC. MENU BYTE 0C 

1132 23F4 52 20 52 ,. BYTE 'RRESETl',8 
23F7 45 53 45 

23FA 54 31 00 

1133 23FD 22 C6 WORD RESET1 

1134 23FF 4F 20 42 BYTE '0 BOOT + GO',0 
2402 4F 4F 54 

2405 20 2B 20 

2408 47 4F 00 

1135 240B E2 C5 WORD BOOT 

1136 240D 50 20 53 BYTE 'P SET ' .LOWER, U, 'PC ,0 
2410 45 54 20 

2413 75 50 43 

2416 00 

1137 2417 E2 D5 WORD SETUPC 

1138 2419 55 20 44 BYTE 'U DISPLAY ' , LOWER. U, 'ADR+' .LOWER. U' .INSTR' ,0 



MOTOROLA ASSEMBLER 05/85/82 15,29.81. SEITE HH 26 





SUBMONIT 


EXECUTER 




24 1C 


49 


53 


50 




24 IF 


4C 


41 


59 




2422 


28 


75 


41 




2425 


44 


52 


2B 




2428 


75 


49 


4E 




242B 


53 


54 


52 




242E 


80 






1139 


242F 


22 


A6 




1148 


2431 


4E 


28 


4E 




2434 


45 


58 


54 




2437 


28 


75 


49 




243A 


4E 


53 


54 




243D 


52 


00 




1141 


243F 


22 


87 




1142 


2441 


54 


20 54 




2444 


52 


41 


43 




2447 


45 


20 


52 




244A 


45 


47 


00 


1143 


244D 


23 


59 




1144 


244F 


58 


20 


53 




2452 


49 


4E 


47 




2455 


4C 


45 


20 




2458 


53 


54 


45 




245B 


58 


00 




1145 


245D 


22 


FB 




1146 


245F 


53 


20 


45 




2462 


58 


45 


43 




2465 


20 


55 


4E 




2468 


54 


49 


4C 




246B 


20 


53 


54 




246E 


4F 


50 


20 




2471 


41 


44 


52 




2474 


68 






1147 


2475 


23 


40 




1148 


2477 


47 


26 


47 




247A 


4F 


00 




1149 


247C 


CI 


66 




1158 


247E 


48 


28 


48 




2481 


41 


4C 


54 




2484 


80 






1151 


2485 


CI 


6D 




1152 


2487 


49 


28 


4g 




248A 


4E 53 


50 




2480 


45 


43 


54 




2490 


00 






1153 


2491 


20 


12 




1154 


2493 


59 


28 42 




2496 


59 


54 


45 




2499 


20 


49 


4E 




249C 


53 


50 


45 




249F 


43 


54 


00 


1155 


24A2 


20 


66 




1156 


24A4 









WORD DMICROINS 

BYTE 'N NEXT ', LOWER. U.'INSTR' 



WORD NEXTI 

BYTE 'T TRACE REG',0 



WORD TRACE. REG 

BYTE 'X SINGLE STEP', 8 



WORD MSS 

BYTE 'S EXEC UNTIL STOP ADR'.f 



WORD BRKPOINT 

BYTE 'G GO',0 

WORD START 

BYTE 'H HALT',0 



WORD STOP 

BYTE 'I INSPECT' ,8 



WORD XINSPECT 

BYTE 'Y BYTE INSPECT", 8 



WORD BYTE.INSP 
END EXECUTER 
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SUBMONIT 












1159 


24A4 










BEGIN DEVICES 


1160 












DEF 


DEVICES 


1161 












USE 


XINSPECT, DISK. DRIVE 


1162 










* 






1163 










* 


ROUTINES FOR DISPLAY PROCESSOR TESTING 


1164 










* 






1165 










* 


FOLLWING ROUTINES ARE SUPPLIED 


1166 










* 


R - READ DEVICE 


1167 










* 


W - WRITE DEVICE 


1168 










* 


P - SET PATTERN IN MEMORY 


1169 










* 


Q - SET QUADRUPLE PATTERN 


1170 










* 


I - INSPECT (SEE MEMORY SUBMONITOR) 


1171 










* 


M - MAKE A BITMAP DESCRIPTOR 


1172 










* 






1173 










* 






1174 










###*^#****##**#*#****#*#*##s***#**#*##*##*w*#**at****«s{* 


1175 










* 






1176 










* 


READ DEVICE 


1177 










* 


INPUT 


A - DEVICE ADR 


1178 










« 


OUTPUT X - VALUE 


1179 










* 






1180 


24A4 


B7 


3C 


0F 


GET 


STAA 


CPU8 SET DEVICE ADR BYTE ONLY 


1181 


24A7 


CE 


25 


16 




LDX 


=SET.IO.ADR 


1182 


24AA 


BD 


CI 


17 




JSR 


EXX 


1183 










* 






1184 


24AD 


36 








PSH 


A 


1185 


24AE 


86 


07 






LDAA 


=07 BUS SOURCE - IODATA 


1186 


24B0 


B7 


3C 


0C 




STAA 


MIR0 THIS STARTS THE READ OPERATION 


1187 


24B3 


B7 


3C 


15 




STAA SSP SINGLE STEP 


1188 


24B6 


B7 


3C 


15 




STAA 


SSP 


1189 


24B9 


FE 


3C 


BE 




LDX 


CPU1 


1190 


24BC 


B7 


3C 


15 




STAA 


SSP 


1191 


24BF 


B7 


3C 


15 




STAA 


SSP 


1192 


24C2 


86 


FF 






LDAA 


=0FF 


1193 


24C4 


B7 


3C 


ec 




STAA 


MIR8 DISABLE ANY BUS SOURCING IN AN 


1194 


24C7 


32 








PUL 


A 


1195 


24C8 


39 








RTS 




1196 










********««#****♦******»***«****####*###*****»*******:*# 


1197 










* 






1198 










* 


WRITE DEVICE 


1199 










* 


INPUT 


A - DEVICE ADR 


1200 










* 




X - VALUE 


1201 










* 






1202 


24C9 


B7 


3C 


0F 


PUT 


STAA 


CPU8 


1203 


24CC 


BD 


C2 


59 




JSR 


PUSHX 


1204 


24CF 


CE 


25 


16 




LDX 


=SET.IO.ADR 


1205 


24D2 


BD 


CI 


17 




JSR 


EXX SET DEVICE ADR 


1206 










* 






1207 


24D5 


BD 


C2 


70 




JSR 


PULLX 


1208 


24D8 


FF 


3C 


BE 




STX 


CPU1 


1209 


24DB 


36 








PSH 


A 


1210 


24DC 


86 


7D 






LDAA 


=7D SOURCE=PANEL; DEST=IOD 


1211 


24DE 


B7 


3C 


0C 




STAA 


MIR0 


1212 


24E1 


B7 


3C 


15 




STAA 


SSP SINGLE STEP 


1213 


24E4 


B7 3C 


15 




STAA 


SSP SINGLE STEP 


1214 


24E7 


B7 


3C 


15 




STAA 


SSP SINGLE STEP 



SUBMONIT DEVICES 



I 

p, 

j 

I 
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1215 


24EA 


B7 


3C 


15 








STAA 


SSP SINGLE STEP 


1216 


24ED 


86 


FF 










LDAA 


=0FF DISABLE BUS 


1217 


24EF 


B7 


3C 


BC 








STAA 


MIR0 


1218 


24F2 


32 












PUL 


A 


1219 


24F3 


39 












RTS 




1220 










*s*a*a******#a*******#*#*##* *•*#****»#**********«*« 


1221 










* 










1222 










* 






CALL 


READ DEVICE 


1223 


24F4 


96 


10 




RD 


DEV 




LDAA 


X.VORD+1 


1224 


24F6 


BD 


CI 


58 








JSR 


EDMIR 


1225 


24F9 


BD 


24 


A4 








JSR 


GET 


1226 


24FC 


BD 


CI 


5F 








JSR 


EPMIR 


1227 


24FF 


BD 


C2 


87 








JSR 


PRINTX 


1228 


2502 


39 












RTS 




1229 










»C«**«***«*«*»*«*«Xtttt************tt***t*t«**i|i 


1230 










* 






CALL 


WRITE DEVICE 


1231 


2503 


96 


10 




UR 


DEV 




LDAA 


X.WORD+1 ADR 


1232 


2505 


36 












PSH 


A 


1233 


2506 


BD 


C2 


FE 








JSR 


GETWORD GET X VALUE 


1234 


2509 


DE 


0F 










LDX 


X.WORD 


1235 


250B 


32 












PUL 


A 


1236 


250C 


BD 


CI 


58 








JSR 


EDMIR 


1237 


250F 


BD 


24 


eg 








JSR 


PUT 


1238 


2512 


BD 


CI 


5F 








JSR 


EPMIR 


1239 


2515 


39 












RTS 




1240 










*************#********#*********fc***##*«*******#** 


1241 










* 










1242 


2516 


2E 


00 


07 


SE1 


.10 


ADR 


BYTE 


2E,0,7,60,6D 




2519 


60 6D 














1243 










**********************«*«***»**#**********«*# «<#44**8«*«*«** 


1244 










* 










1245 










* 






WRITE 


PATTERN INTO MEMORY 



1245 










* 




WRITE 


PATTERN INTO MEMORY 


1246 










* 








1247 










* 




BEGIN 


(A,B) := X.WORD; 


1248 










* 




FOR X:=LOWDISP TO LOWDI 


1249 










* 




END 




1250 










* 








1251 










LOW. 


DISP 


EQU 


0000 


1252 










DISP 


.SIZE 


EQU 


0FFF0 


1253 










« 








1254 


251B 


96 


10 




D. PATTERN 


LDAA 


X.WORD+1 


1255 


25 ID 


D6 


0F 








LDAB 


X.WORD 


1256 


251F 


CE 


60 


00 






LDX 


=LOW.DISP 


1257 


2522 


BD 


CI 


58 






JSR 


EDMIR 


1258 


2525 


BD 


C2 


28 


FOR 




JSR 


WMM 


1259 


2528 


08 










INX 




1260 


2529 


8C 


FF 


F0 






CPX 


-LOW.DISP+DISP.SIZE 


1261 


252C 


26 


F7 








BNE 


FOR 


1262 


252E 


BD 


CI 


5F 






JSR 


EPMIR 


1263 


2531 


39 










RTS 




1264 


















1265 


















1266 


2532 


CE 


00 


00 


MAKE 


.BMD 


LDX 


=0 


1267 


2535 


09 










DEX 




1268 


2536 


4F 










CLR 


A 


1269 


2537 


5F 










CLR 


B 


1270 


2538 


BD 


CI 


58 






JSR 


EDMIR 



STARTING ADR OF DISPLAY MAP 
SIZE OF DISPLAY MEMORY 
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SUBMONIT 


DEVICES 






1271 


253B 


BD 


C2 


28 


JSR 


WMM 


1272 














1273 


253E 


09 






DEX 




1274 


253F 


86 


4F 




LDAA 


=4F 


1275 


2541 


C6 


02 




LDAB 


=2 


1276 


2543 


BD 


C2 


28 


JSR 


WMM 


1277 














1278 


2546 


89 






DEX 




1279 


2547 


86 


30 




LDAA 


=30 


1280 


2549 


5F 






CLR 


B 


1281 


254A 


BD C2 


28 


JSR 


WMM 


1282 














1283 


254D 


09 






DEX 




1284 


254E 


86 


80 




LDAA 


=LO(LOW.DISP) 


1285 


2550 


C6 


60 




LDAB 


=HI(LOW.DISP) 


1286 


2552 


BD 


C2 


28 


JSR 


WMM 


1287 














1288 


2555 


4F 






CLR 


A 


1289 


2556 


BD 


24 


C9 


JSR 


PUT 


1298 


2559 


BD 


CI 


5F 


JSR 


EPMIR 


1291 


255C 


39 






RTS 




1292 














1293 








*********************************** 


1294 














1295 


255D 


CE 


25 


63 DEVICES 


LDX 


-DEV. TITLE 


1296 


2560 


DF 


0B 




STX 


MAIN. ID 


1297 


2562 


CE 


25 


78 


LDX 


=DEV.MENU 


1298 


2565 


7E 


C3 


91 


JMP 


COMMANDS 


1299 


2568 


44 


45 


56 DEV. TITLE 


BYTE 


' DEVICES', 8 




256B 


49 


43 


45 








256E 


53 


08 








1300 








* 






1381 


2570 


05 




DEV. MENU 


BYTE 


5 


1302 


2571 


47 


28 


47 


BYTE 


'G GET',0 




2574 


45 


54 


08 






1303 


2577 


24 


F4 




WORD 


RD.DEV 


1304 


2579 


50 


20 


50 


BYTE 


'P PUT', 8 




257C 


55 


54 


08 






1305 


257F 


25 


03 




WORD 


WR.DEV 


1386 


2581 


53 


20 


53 


BYTE 


•S SET PATTERN', 8 




2584 


45 


54 


20 








2587 


58 


41 


54 








258A 


54 


45 


52 








258D 


4E 


88 








1387 


258F 


25 


IB 




WORD 


D. PATTERN 


1388 


2591 


49 


28 


49 


BYTE 


'I INSPECT", B 




2594 


4E 


53 


58 








2597 


45 


43 54 








259A 


08 










1389 


25SB 


20 


12 




WORD 


XINSPECT 


1318 


259D 


4D 


20 


4D 


BYTE 


'M MAKE BMD',8 




25A0 


41 


4B 


45 








25A3 


20 


42 


4D 








25A6 


44 


es 








1311 


25A8 


25 


32 




WORD 


MAKE.BMD 


1312 














1313 


25AA 








END 


DEVICES 
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SUBMONIT 












1315 


25AA 








BEGIN MICRO. MEM 




1316 










DEF 


MICRO. MEM 




131? 










USE 


U. LOAD, REREAD ,U. INSPECT 


1318 
















1319 








*ss*ss*«*s*xs*s**ss*s**»****»*x*****ss*s«** 


1320 








* 








1321 








* 


PROCEDURE CHECK 


.LOAD; 




1322 








* 


(* CHECK IF THE RAM IS PROPERLY LOADED *) 


1323 








* 


BEGIN 






1324 








* 


HELP1 := 0; 


HELP2 := 800H; 


1325 








» 


REPEAT 






1326 








* 


FOR B :« 


4 TO STEP 


-1 DO 


1327 
1328 








« 
* 


HELP3 : 
IF A <> 


= RUM(HELP2,B); A := RUM(HELPl.B) 
HELP3 THEN 


1329 
1338 








* 
s 


PRINT(HELPl); PRINT(B); PRINT(A); PRINT(HELP3); 
END 


1331 








« 


END 






1332 
1333 








« 
* 


INC(HELPl); INC(HELP2); 
UNTIL HELP2 = 1000H; 


1334 








* 


END CHECK. LOAD; 




1335 








* 








1336 


25AA 


CE 00 


00 


CHECK. LOAD LDX 


=0 




1337 


25AD 


DF 30 






STX 


HELP1 


RAM POIINTER 


1338 


25AF 


CE 08 


00 




LDX 


=800 




1339 


25B2 


DF 32 






STX 


HELP2 




1340 


25B4 


C6 04 




CH 


L.LP1 LDAB 


=4 




1341 


25B6 


DE 32 




CH.L.LP2 LDX 


HELP2 




1342 


25B8 


BD CI 


90 




JSR 


RUM 




1343 


25BB 


97 34 






STAA 


HELP3 




1344 


25BD 


DE 30 






LDX 


HELP1 




1345 


25BF 


BD CI 


90 




JSR 


RUM 




1346 


25C2 


91 34 






CMPA 


HELP3 




1347 


25C4 


27 ID 






BEQ 


CH.L.OK 




1348 


25C6 


BD C2 


87 




JSR 


PRINTX 


PRINT ADR 


1349 


25C9 


36 






PSH 


A 




1350 


25CA 


BD C0 


62 




JSR 


W.l. BLANK 




1351 


25C0 


17 






TBA 






1352 


25CE 


BD C0 


C9 




JSR 


OUT. BYTE 


PRINT BYTE ADR 


1353 


25D1 


BD C0 


62 




JSR 


W.l. BLANK 




1354 


25D4 


32 






PUL 


A 




1355 


25D5 


BD C0 


eg 




JSR 


OUT. BYTE 


PRINT RAM BYTE 


1356 


25D8 


BD C8 


62 




JSR 


W.l. BLANK 




1357 


25DB 


96 34 






LDAA 


HELP3 




1358 


25DD 


BD C0 


eg 




JSR 


OUT. BYTE 


PRINT ROM BYTE 


1359 


25E0 


BD C0 


78 




JSR 


W.CRLF 




1360 


25E3 


5A 




CH 


L.OK DEC 


B 




1361 


25E4 


2A D0 






BPL 


CH.L.LP2 




1362 
1363 


25E6 
25E7 


08 
DF 30 






INX 
STX 


HELP1 


INC(HELPl) 


1364 


25E9 


DE 32 






LDX 


HELP2 




1365 


25EB 


08 






INX 






1366 


25EC 


DF 32 






STX 


HELP2 




1367 


25EE 


8C 10 


00 




CPX 


=1000 




1368 


25F1 


26 CI 






BNE 


CH.L.LP1 




1369 


25F3 


39 






RTS 






1370 








* 
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MOTOROLA ASSEMBLER 05/05/82 15.29.01. SEITE NR 31 



1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1490 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 



25F4 



25F4 
25F6 
25F8 
25FB 
25FD 
25FF 
2601 
2604 
2606 
2609 
260C 
260F 
2611 
2613 
2616 
2619 
261C 
261E 
2620 
2621 
2623 
2625 



DE 0F 
DF 30 
BD C0 85 
81 04 
2E F9 
97 32 
BD C0 62 
D6 32 
BD CI 90 
BD C0 C9 
BD C0 24 
81 3A 

26 09 

BD C0 BC 
BD CI 7B 
BD C0 24 
81 2C 

27 01 
39 

CI 04 
26 07 



* 

INSPECT AND CHANGE MICRO MEMORY 

BEGIN INSP 

DEF U. INSPECT 

* 

FORMAT : 

ADDRESS 'I' SUBADR VALUE [ ' :' NEWALUE] [ V ] 

ADDRESS = 4 DIGIT HEX 

* SUBADR = . . 4 

* 

PROCEDURE INSPECT 
BEGIN 

CRNT.ADR := X.WORD; 

* REPEAT R.CH(A) UNTIL (A>='0') AND (A<='4'); CRNT. SUBADR := A-'B'; 

* LOOP 

* A := RUM(CRNT.ADR, CRNT. SUBADR); 
» W.CH(" '); OUT.BYTE(A); 

* R.CH(A); 

IF A- ' : ' THEN 

IN.BYTE(A); WUM(CRNT.ADR, CRNT. SUBADR, A); R.CH(A) 
END; 
IF A#',' THEN EXIT END; 

IF CRNT. SUBADR = 4 THEN INC(CRNT.ADR); CRNT. SUBADR := -1; END; 

* INC(CRNT. SUBADR); 

W.CRLF; OUT.HEX(CRNT.ADR); W.CH('-'); 
W.CH(CRNT. SUBADR + '0'); W.CH(' ') 
END 
END 
END INSPECT; 



CRNT.ADR EQU 
CRNT.SBADR EQU 



U. INSPECT 



REP2 



LOOP 



ENDIF1 



ENDIF2 



LDX 

STX 

JSR 

CMPA 

B6T 

STAA 

JSR 

LDAB 

JSR 

JSR 

JSR 

CMPA 

BNE 

JSR 

JSR 

JSR 

CMPA 

BEQ 

RTS 

CMPB 

BNE 

INX 



HELP1 
HELP2 

X.WORD 
CRNT.ADR 
IN. HEX 

REP2 

CRNT.SBADR 

y.l. BLANK 

CRNT.SBADR 

RUM 

OUT. BYTE 

R.CH 

_ « . I 

ENDIF1 
IN. BYTE 
WUM 
R.CH 

= l ' 

ENDIF2 

=4 

ENDIF3 



GET SUBADR 



READ IT 

A CONTAINS ALREADY THE VALUE 

GET DELIMITER 



GET NEW VALUE 

WRITE MICRO MEMORY; B, X ARE ALREADY SET 

GET DELIMITER 



ANY OTHER DELIMITER THEN ' , ' => EXIT 
COMP CRNT. SUBADR, #4 



INC(CRNT.ADR) 
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SUBMONIT MICROMEM INSP 



STX 


CRNT.ADR 




LDAA 


=0FF 




STAA 


CRNT.SBADR 


CRNT.SUBADR ;= 


INC 


CRNT.SBADR 




JSR 


W.CRLF 




JSR 
LDAA 


PRINT. X 

_ 1 _ 1 


WRITE(ADR) 


JSR 
LDAA 


W.CH 
CRNT.SBADR 


VRITE('-') 


JSR 
BRA 


OUT. HEX 

LOOP 


WRITE(SUBADR) 


END 


INSP 





1428 2626 DF 30 

1429 2628 86 FF 

1430 262A 97 32 

1431 262C 7C 00 32 ENDIF3 

1432 262F BD C0 78 

1433 2632 BD C2 87 

1434 2635 86 2D 

1435 2637 BD C0 51 

1436 263A 96 32 

1437 263C BD C0 90 

1438 263F 20 C0 

1439 2641 

1440 » 

1442 

1443 « LOAD MICRO RAM FROM HP-CASSETTE (STANDARD HEXADECIMAL CODED 6800-FORMAT) 

1444 * **&«*««****#«************« 

1445 

1446 • PROCEDURE LOAD 

1447 * VAR EOT: BOOLEAN; (« A-REG, 0=TRUE «) 

1448 * 

1449 » PROCEDURE SKIPLINE; 

1450 « BEGIN REPEAT READ(CH) UNTIL CH=CR END; 

1451 » 

1452 « PROCEDURE READBLOCK; 

1453 « VAR CH : CHAR; (* A-REG «) 

1454 * CHECKSUM, (» HELP1 «) 

1455 « BYTECOUNT : BYTE; (« HELP2 ») 

1456 * ADDR : ADDRESS; (« X-REG ») 

1457 * BEGIN 1: LINEREAD; 

1458 * REPEAT 

1459 « REACH(CH); 

1460 » UNTIL CH = 'S'; 

1461 * READ(CH); 

1462 « EOT := CH = '9'; 

1463 « IF NOT EOT 

1464 « THEN BEGIN 

1465 « INBYTE(BYTECOUNT); 

1466 * CHECKSUM := BYTECOUNT; 

1467 * INWORD(ADDR); 

1468 * CHECKSUM ;= CHECKSUM + ADDR MOD 40 + ADDR DIV 40; 

1469 « REPEAT 

1470 * , INBYTE(A); 

1471 « VUM(X, B); 

1472 * CHECKSUM := CHECKSUM + M[ADDR]; 

1473 * ADDR := ADDR + 1; 

1474 » BYTECOUNT := BYTECOUNT - 1; 

1475 * UNTIL BYTECOUNT = 3; 

1476 * INBYTE(CH); (« CHECKSUM ») 

1477 « IF CHECKSUM <> COMPL(CH) 

1478 « THEN BEGIN 

1479 » WSTRING( ' CHECKSUM ERROR ' ) ; 

1480 * END; 

1481 « END; 

1482 * END READBLOCK; 
1483 

1484 * BEGIN (« LOAD ») 



SUBMONIT MICROMEM 
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1485 










* 


FOR B := TO 4 


DO (« READ 4 FILES «) 


1486 










« 


( 


*SKIP HEADER AND INTERFILE GAP«) 


1487 










* 


LINEREAD; 




1488 










« 


REPEAT READ(CH); 


1489 










* 




IF CH=CR THEN LINEREAD END; 


1490 










* 


UNTIL CH = 'S 


i . 
) 


1491 










* 


REPEAT READ(CH) UNTIL CH = CR; 


1492 










* 


REPEAT 




1493 










* 




READBLOCK; 




1494 










* 


UNTIL EOT; 




1495 










» 


END 






1496 










* 


END LOAD; 




1497 


















1498 


2641 










BEGIN TAPE. LOAD 




1499 












DEF 


U.LOAD 




1500 


















1501 










CRNT.SBADR 


EQU 


HELP3 




1502 


















1503 


2641 


BD 


E0 


03 


SKIP. LINE 


JSR 


READ.CH 




1504 


2644 


81 


0D 






CMPA 


=CR 




1505 


2646 


26 


F9 






BNE 


SKIP. LINE 




1506 


2648 


39 








RTS 






1507 










* 








1508 










READ. BLOCK 


EQU 


* 




1509 


2649 










BEGIN 


READBLOCK 




1510 


2649 


BD 


C0 


FB 


REPEAT0 


JSR 


LINE. READ 




1511 


264C 


BD 


E0 


03 


REPEAT1 


JSR 


READ.CH 


SKIP UNTIL 'S' 


1512 


264F 


81 


53 






CMPA 


= 'S' 




1513 


2651 


26 


F9 




UNTIL1 


BNE 


REPEAT1 




1514 


2653 


BD 


E0 


03 




JSR 


READ.CH 




1515 


















1516 


2656 


80 


39 






SUBA 


= '9' 




1517 


2658 


36 








PSH 


A 


SAVE THE EOF INFORMATION 


1518 


2659 


27 


37 




IF1 


BEQ 


ENDIF 




1519 


265B 


BD 


E0 


1A 


THEN1 


JSR 


READ. BYTE 


BYTECOUNT 


1520 


265E 


36 








PSH 


A 




1521 


265F 


80 


03 






SUBA 


=3 


SUBSTRACT BYTECNT, 2 BYTES ADDRESS 


1522 


2661 


97 


32 






STAA 


HELP2 




1523 


2663 


32 








PUL 


A 




1524 


2664 


CE 


00 


01 




LDX 


=X.SAVE 




1525 


2667 


BD 


E0 


27 




JSR 


READ. WORD 


ADDRESS 


1526 


268A 


AB 


00 






ADDA 


0,X 




1527 


266C 


AB 01 






ADDA 


1,X 




1528 


266E 


97 


30 






STAA 


HELP1 


XSUM:= BYTECOUNT + ADDR(HI) + ADDR 


1529 


2670 


DE 01 






LDX 


X.SAVE 




1530 


2672 


BD 


E0 


1A 


REPEAT2 


JSR 


READ. BYTE 


DATA 


1531 


2675 


D6 


34 






LDAB 


CRNT.SBADR 




1532 


2677 


BD 


CI 


7B 




JSR 


WUM 


X IS ALREADY SET 


1533 


















1534 


267A 


9B 


30 






ADDA 


HELP1 




1535 


267C 


97 


30 






STAA 


HELP1 


XSUM := XSUM + A 


1536 


267E 


08 








INX 






1537 


267F 


7A 


00 


32 




DEC 


HELP2 




1533 


2682 


26 


EE 




UNTIL2 


BNE 


REPEAT2 




1539 


2684 


BD 


E0 


1A 




JSR 


READ. BYTE 


CHECKSUM 


1540 


2687 


43 








COM 


A 




1541 


2688 


91 


30 






CMPA 


HELP1 
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1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 



1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 



268A 
268C 
268F 

2692 
2693 
2694 



2694 
2697 
269A 
269D 
269F 
26 A 1 
26A4 
26A6 

26A8 
26AB 
26AD 

26AF 
26B2 
26B3 



26B8 
26BB 
26BD 
26BF 
26C1 

26C2 
26C5 
26C8 
26CB 



27 06 IF2 
CE 26 C2 THEN2 
BD C0 6A 

ENDIF 
32 
39 



7F 00 34 
BD C0 FB 
BD E0 03 
81 0D 
26 03 
BD C0 FB 
81 53 
26 F2 

BD E0 03 
81 0D 
26 F9 

BD 26 49 

4D 

26 FA 



26B5 BD 26 41 



7C 00 34 
D6 34 
CI 04 
2F D6 
39 

58 53 55 
4D 20 45 
52 52 00 



U.LOAD 

SKIP.HDR0 

SKIP.HDR1 



SKIP.HDR2 
SKIP.HDR3 

REPEAT 
UNTIL 



MESS1 



BEQ 
LDX 
JSR 
EQU 
PUL 
RTS 
END 



ENDIF 
=MESS1 
V. STRING 



READBLOCK 



RESAVE THE EOF INFORMATION 



CLR CRNT.SBADR WE START READING THE FIRST FILE 

JSR LINEREAD SKIP THE HEADER LINE 

JSR READ.CH 

CMPA =CR 

BNE SKIP.HDR2 

JSR LINEREAD 

CMPA ='S' 

BNE SKIP.HDR1 

JSR READ.CH SKIP THE FIRST LINE 

CMPA =CR 

BNE SKIP.HDR3 

JSR READ. BLOCK 

TST A END OF TAPE 

BNE REPEAT 

JSR SKIP. LINE 

INC CRNT.SBADR INCREMENT THE FILE NUMBER 

LDAB CRNT.SB.ADR 

CMPB =4 

BLE SKIP.HDR0 

RTS 

BYTE 'XSUM ERR',0 



END TAPE. LOAD 

« 
» 

« COMPARE MICRO CODE WITH HP-CASSETTE (STANDARD HEXADECIMAL CODED 6880-FORMAT) 

* 

PROCEDURE REREAD 

VAR EOT: BOOLEAN; (« A-REG, 0=TRUE *) 

* 

PROCEDURE SKIPLINE; 

* BEGIN REPEAT READ(CH) UNTIL CH=CR END; 

« 

PROCEDURE READBLOCK; 

VAR CH : CHAR; (« A-REG ») 

* CHECKSUM, (* HELP1 •) 
BYTECOUNT : BYTE; (* HELP2 «) 
ADDR : ADDRESS; (« X-REG «) 

« BEGIN 1: LINEREAD; 

REPEAT 
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1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1697 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
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1645 
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BD E0 03 
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39 



BD C0 FB 
BD E0 03 
81 53 
26 F9 
BD E0 03 



SKIP. LINE 



READ. BLOCK 



REPEAT0 
REPEAT1 

UNTIL1 



REACH(CH); 
UNTIL CH = 'S'; 
READ(CH); 
EOT := CH = '9'; 
IF NOT EOT 
THEN BEGIN 
INBYTE(BYTECOUNT); 
CHECKSUM := BYTECOUNT; 
INWORD(ADDR) ; 

CHECKSUM := CHECKSUM + ADDR MOD 40 + ADDR DIV 40; 
REPEAT 

INBYTE(A); 

IF A <> RUM(X,B) THEN 

WRITELN(ROMVALUE); SWI(B, TAPEVALUE.X); 
SKIP THE REST OF THE LINE; GOTO 1; 
CHECKSUM ;= CHECKSUM + M[ADDR]; 
ADDR := ADDR + 1; 
BYTECOUNT := BYTECOUNT - 1; 
UNTIL BYTECOUNT = 3; 
INBYTE(CH); (* CHECKSUM ») 
IF CHECKSUM <> COMPL(CH) 
THEN BEGIN 

WSTRING( ' CHECKSUM ERROR ' ) ; 
END; 
END; 
END READBLOCK; 

BEGIN (« REREAD ») 
FOR B := TO 4 DO (* READ 4 FILES «) 
(•SKIP HEADER AND INTERFILE GAP*) 
LINEREAD; 
REPEAT READ(CH); 

IF CH=CR THEN LINEREAD END; 
UNTIL CH - 'S'; 

REPEAT READ(CH) UNTIL CH = CR; 
REPEAT 

READBLOCK; 
UNTIL EOT; 
END 
END REREAD; 

BEGIN TAPE. CMP 
DEF REREAD 

JSR READ.CH 

CMPA =CR 

BNE SKIP. LINE 
RTS 



EQU * 

BEGIN READBLOCK 

JSR LINE, READ 

JSR READ.CH 

CMPA ='S' 

BNE REPEAT1 

JSR READ.CH 



SKIP UNTIL 'S' 
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